home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #119 (1991-03)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #119 (1991-03)(Amiga User Group Deutschland e.V.).adf
/
AmigaBASIC_Programme
/
Reaktionstest
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-03
|
2KB
|
43 lines
'Reaktionstest
'written August 1988 by Michael Gottwald
Start: SCREEN 1,640,200,3,2:WINDOW 1,"Reaktionstest",,8,1:DIM bg(9)
PALETTE 0,0,0.5,0.5:PALETTE 3,0.33,0.8,0:PALETTE 4,0,0,0:PALETTE 5,1,0,0
PALETTE 6,1,0.4,0.4:PALETTE 7,1,0.7,0.7:x=385:y=64:FOR i=5 TO 7
LINE (x,186)-(630,y),i:bg(0)=0.9424:bg(1)=1.5707:bg(2)=2.1991
bg(3)=3.7996:bg(4)=6.2831:bg(5)=2:bg(6)=3:bg(7)=7:bg(8)=6:bg(9)=5
LINE -(630,y+30),i:LINE -(x+60,186),i:LINE -(x,186),i:PAINT (x+5,185),i,i
x=x+61:y=y+31:NEXT:w$="REAKTIONSTEST":c=5:LOCATE 5,20
FOR i=1 TO 13:COLOR 2,c:PRINT" ";MID$(w$,i,1);" ";
IF c=7 THEN c=4
c=c+1:NEXT:COLOR 1,0:LOCATE 8,1:PRINT" Mit diesem Programm können Sie Ihre";
PRINT" Reaktion testen !":PRINT:PRINT" Wenn die grüne Scheibe rot wird,";
PRINT" drücken Sie die rechte ALT-Taste.":PRINT:PRINT" Viel Vergnügen !"
LOCATE 19,23:COLOR 2,0:PRINT"© 1988 written by Michael Gottwald"
SLEEP:SLEEP
CLS:PRINT" Wenn die Scheibe rot wird, rechte ALT-Taste drücken..."
CIRCLE (130,93),100,3:PAINT (160,93),3,3:CIRCLE (430,93),180,1
PALETTE 2,0.53,1,0:f=1:GOSUB Segmente:f=0
PAINT (511,130),2,1:PAINT (542,114),3,1
PAINT (539,75),7,1:PAINT (435,45),6,1:PAINT (397,104),5,1:GOSUB Segmente
Aufbau: CIRCLE (x,y),180,0:LOCATE 18,60
COLOR 4,2:PRINT"Sehr gut":LOCATE 14,66:COLOR 4,3:PRINT"Gut":LOCATE 11,62
COLOR 4,7:PRINT"Befriedigend":LOCATE 6,52:COLOR 4,6:PRINT"Schlecht"
LOCATE 13,38:COLOR 4,5:PRINT"Mangelhaft":RANDOMIZE TIMER:z=2+RND*4
FOR i=0 TO z*1000:NEXT:PAINT (130,93),5,0:t=TIMER:CIRCLE (x,y),5,1
PAINT (x,y),1,1
WHILE PEEK(12577793)<>53:WEND:rt=TIMER-t:COLOR 1,0
LOCATE 20,2:PRINT"Reaktionszeit = "rt" Sekunden":IF rt>1 THEN rt=0.997
xp=x+SIN(rt*6.283)*178:yp=y+COS(rt*6.283)*77:c=POINT(xp,yp)
LINE (x,y)-(xp,yp),1:PRINT" Nochmal (J/N) ?"
Taste: k$=INKEY$:IF k$="j"THEN Erneuern
IF k$="n"THEN PRINT "Tschüss...":END
GOTO Taste
Erneuern: LINE (x,y)-(xp,yp),c:PAINT (130,93),3,0:LOCATE 20,18
PRINT" ":GOTO Aufbau
Segmente: x=430:y=93:FOR i=0 TO 4:IF f=1 THEN c=1 :ELSE c=bg(5+i)
xz=x+SIN(bg(i))*180:yz=y+COS(bg(i))*79.2:LINE (x,y)-(xz,yz),c:NEXT
RETURN